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Well, the secord year has row 
come arid gone for the Newsletter 
and the possibilities cof change 
are in the air. 

Elections for the Executive are 
row at hard anc as stated in the 
previous elections of last year, 
the executive may only remain 
for a term af upto two years. 

Uo for grabs are: 

Presiderit 

Administrative Director 

The other positions for software 
and hardware directors, as well 
as the treasurer, have only been 
cccupied for one year each and 
therefore car be vacated this 
year only if the incumbant sea 
wishes. Ta my knowledge, bath 
directors are indeed vacating 
those positions due to varying 
personal reasons. 

I beleive that recognition of 
the efforts and dedication by 
each of the respective incum- 
barts is most definately 
warranted. It is now up ta the 
membership at large to nominate 
arid vote in a new Executive. 
Naturally, the outgoing execs. 
will endevour to assist the 

view reps in ensuring a smooth 
transition. 

In as far as the Newsletter is 
concerned, the matter may rot 

be as easily resolved. ۵ 
newsletter is, for this group, 
an egsertial and important part 
Gf it’s existance. However, it 
is a furction that requires same 
dedication, krnowledge of the 
subject at hand, and a great 
deal of support. Such support, 

I am sad to say, has not to 

this date been sufficiently 
evidert. 

At this time, I am at a loss 

as toa whether to attempt to 


GENERAL 


continue, putting the pcositicen 
up for grabs, or stopping 
publication entirely. I 
believe that there are a 
number of individuals within the 
graup that may be able t2 pull 
it off if they were tc receive 
the appropriate support, but 

I am not sure that they would 
want the lorng and tedious job 
in the first place, ar if 

they would be able to cbtain 
the info to keep it going. 

in this regard, if anyone is 
eof the opinion that he/she 
would like te give it a go, 
please let me knew as soon as 
possible so that I can arrange 
to talk to them . I will then 
explain all of the intricate 
functions involved. 

So, let's see your support 

and personal dedication in the 
upcamirng elections! Survival 
is of the fitest. Are ycu fit? 


THE EDITOR, 
R. MULDER 
19/11/85 
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PARTIAL PASCAL 
A BACKUP PROCEDURE 


PARTIAL PASCAL for the ZX81 turns 
out to be a surprisingly good 
package. It is necessary, however, ' 
to read the instructions carefully 
and experiment for some time 
before making a serious evaluetion 
of the package. The following 
paragraph summarises my comments 
on PARTIAL PASCAL. 








J. To make a good use of the 
package, complete familiarity with 
the necessary screen entries is 
required due to the rather 
incomplete prompts to guide the 
user, 

2. As far as I was able to 
determine, a compiled program must 
be saved on tape and then reloaded 
in order to be executed. I would 
preter the convenience of running 
a program from memory thru a "RUN" 
commeard,. 

Z. Tre kevboard decode routines 
are somewhat slow. Keys must be 
held down for a noticeably long 
period of time before anything 
recisters on the screen. That 
males speed entry impossible for 
those who have regular keyboards. 
4. Integer only. 

5. Files handled by PARTIAL PASCAL 
are saved/loaded at ZX81 speed 
(about 200 bauds). I am used to 
about 1200 bauds with GUICKTAPE. 

é. It is not obvious where the 
source and object files are held 
in memory. This information is 
required for further studies oan 
the object files properties (are 
they relocatavie, can they run 
independertly of PARTIAL FASCAL, 
etc...). 


PARTIAL PASCAL AND GUICKTAPE 


A backup copy of the package can 
be made b; saving, trom PARTIAL 
PASCAL itself, the complete 16k - 
32k memory block. A special loader 
program is then required to set 
the stack pointer to the correct 
locetion, prior to the actual load 
c4 PARTIAL PASCAL. 


The backup copy will load faster 
and occupy less tape space if a 
fast loader/saver is invoked. In 
this exercise, GUICKTAPE is used. 


THE FACKUP PROCEDURE 
Load the PARTIAL FASCAL in the 


regular manner, Enter the 
following PASCAL program that will 








—— ل‎  ....  .. ... ———— —— —FFFFFFFFFFFFFFFFFFFFFFFFFFFEFFFFFbD. 


give us information about the 


etack pointer location. 


PROGRAM STACK INFUT, OUTFLT) ; 
UAR VALUE: INTEGER; 
EEGIN 


MEM(.16446.) 1 2227] 
MEM(.16447.):72115; 
MEM(.16448,):260; 

MEMC. 16449.) 1 2641 
MEM(.16450.)1:2237; 
MEM(,16451.):=753 
MEM(.16452.):260; 

۲۲۴۸۱۲, 16453.) 1764; 

MEM(. 16454.) : 72011 

VALUE! SUSF(16446,0,0,0,03; 
WRITELN’ "STACK IS ",VALUE) 3 


END s 
After executior, the result is: 
"STACK IS 32626" 


This indicated stack entry points 
to the routine at 16446. Thus, the 
2revious stack entry = at 32688 - 
should point at the return adaress 
to PARTIAL FASCAL. This 
information will be required later 
or when a small loader program is 
prepared,thru which the backup 
copy of PARTIAL PASCAL will be 
loaded. 


Anether PASCAL program is required 
to actually save the PFARTIAL 
PASCAL to tape from within PARTIAL 
PASCAL itself. Overwrite the 
previous PASCAL program with the 
following: 


PROGRAM SAVE (INPUT, OUTPUT); 
VAR VALUE: INTEGER; 
FEGIN 
MEhC.164d043.)2:20; 
MEM(.,16405.):272128; 
VALUE: =USF (6192,0,0,0,0)5 
END. 
This program will set E-LIME to 
32768 and then call the GUICKTAPE 
save routine. Thus the complete 
16K - 32K memory block will be 


saved to tape. This is dore in 





stack 
below 


the 
just 


capture 
residing 


order to 
information 
RAMTOP, 


The backup PARTIAL  PASCAL 
saved will crash if 
directly unless the stack 
is properly set prior 
loading. To acheive this, 
backup PARTIAL PASCAL 
following BASIC loader: 


just 
loaded 
pointer 
to the 
load the 
with the 


= 


10 REM XXXXXXXXXX 
11 POKE 16514,49 
2 POKE 16515,176 
3 POKE 16516,127 
14 POKE 16517,205 
15 FOKE 16518,13 
16 POKE 16519,32 
17 POKE 16520,201 
15 FOR I 1 TO 
19 SCROLL 
20 NEXT I 
70 RAND USR 8192 
RAND USR 16514 


4o 
50 STOP 


22 


To save this loader 
enter «RUN^*. After saving itself, 
this loader will automatically 
wait for PARTIAL PASCAL. Play the 
tape file previously saved thru 
the FASCAL SAVE program above, and 
PARTIAL FASCAL will load into 
memory from the copy and will 
autorun. 


on tape, just 


now to 
PARTIAL 


It is ھ‎ simple matter 
prepare a backup tape of 
PASCAL with the above small BASIC 
loader followed by a backup copy 
trom the SAVE program described 
above. 


Marcel G boult 
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Another thing I found, and 
this iS JUSt personal prefer- 
ance on mu part, is that ail the 
Choices are made with INPUT 
Statements. That means a minimum 
Of 2 keustokes. Many of the 
responses are single letter and 
Cam be handeliled nicely with 
IHKEYXE€. Fiddle with it a bit and 
&£&&€ What I mean. 


Of course, the program wilt 
run on the 2868 minus the SCROLL 
and FAasST;^SLOU commands but, with 
a tittle work, can be very much 
enhanced. 


I hope these suggestions are 
Gf USE to YOU. 


wim Turner 


Pade 


There is a COPY of my ZX81 
version in our club tibrary as 
weli as a much enhanced 2858 
version. 


LISTING FOR HL SCROLL 


REM (at Least SO Spaces} 
FOR x = 16514 TO 15553 
INPUT A 

POKE X,H 

NEXT X 

STOP 


DEN P omr 


RUN and Enter the foiowing 
numbers: | 


—— > 42 12 64 84 S 1 33 Ø 42 12 
1 1812 237 176 42 12 64 1 
a B4 93 62 Ø 1129 19 i So Ə 
B37 176 1 214 2 42 12 64 Ge 118 
9 119 1 21 ® 281. 


Now delete Lines 2 through 6. 


Enter these lines: 
2 LET SC=s 

3 GOTO 18 

5 RAND USR 156514 
6 RETURN 


Now go through the listing and 
change every occurance of 
"SCROLL" to “GOSUB SC". That 
should take care of the slowing 
down Problem. 





SAMPLE INKEY$ ROUTINE 


7 LET Z£- INKEYS 
& IF Z$-z"" THEN GOTO 7 
9 RETURN 


Nou change all occurances of 
INPUT z$ {or Whatever) to: 
GOSUR 7: Da the usual checks on 
Z and you won't have to press 
ENTER after a Simple "ges" or 
"hO" type question. 





۸۸۸۸۸۸۸۸۸۸۸۸۸۸۸۸ 


OUT OF THE 
×انتا لہاتنانا پنالا‎ ۴ 


Hares Rosewarne‏ :یا 


To use our Editor's uma J 
thowsht I wuosld see if I could 
come out o£ the "woodwork" ad 
tru یم‎ hand at oeitina an 
article fer the Hewsletther, 
Frankly thowak. I hawe been 
intimidated bs the abilities of 
the contributino9 members in 
their wnaderetandina of the 
Sinclair and the soPhiztication 
af the Proaramz written and 
demonstrated. However I do 
sence that there are 2 timber 
aft members who Spr amau from 
actually writins à PFrourcam 
thereby missing a areat deal at 
fun and eianificantls reducira 
the usefulness of the machine. 


With a litte Practice. a 
Preoaram can qSuickla and easily 
be written to Perform «our 
Personal calculations be thes 
to determine the alctbkinl 
content of sonr latest ۱٣۳۴ 
made wine or the resultzeof sour 
mortaade Ppaumentsz. 11د رادلا‎ jt. 
Will be Quicker to sit down and 
Write a Preoaranm to do just that 





than to hunt for one alreadao 
written: learn heu to run it 
and then adapt it to sour 
specific needs. This iz 
Particularils true if sci keep 
if vou keep it simple andedan’ t 
trs to be too sobPhizticated. 

To illustrate the Point. I 
Wanted to fired cut her ma 
mortage Payments were divided 
betucen interest and Principal, 
I wast curPrised to find that a 
or statement Program that 
included ceveral FEM statements. 
» and instructions was all that 
Maz needed to Produce a 
Program that did the dok and 
wast quite user Friendl4. The 
Program iz eass teo ruro sitit la 
LOAD!" and EUH. The Pranpts ask 
for the inPut data of initial 
PrinciPal. interesat rate and 
moanthls Pasment in the correct. 
order. 


The comPuter then gages inte 
FAST mode and calculates a 
table for the year Giving the 
interest Paid. martas ae 
repayment and the Principal 
balance at the end af each 
mante throughout the sean. Ba 
Prezgzins the CÜHT kes. the next 
dear table is- calculated and 
disPlased. This tan be changed 
from time to t ipe az the 

for hgage conditions chanae. 

The Program is vers cimP le. 
however. its sorPhistication can 
be increased bs addina 
subroutines to: 

a? alian the decimal Pointe. 
and round to the nearest cent 
bə calculate the number of 
Paaments to retire the mort aaae 
c3 alter inPut data 
interactiwveela 

A? include a menu 

€» include area other neat 
features that wou might think 
ct. 

The Program for the Zz-81 
version is az follows: 





16 REM MORTGAGE CALCULATIONS 
11 FEM PROGRA EY HLF. 
٥٠٢۴٢۷7۸۲۳ 

l= REM LORD MORTGAGE CALC 


p SLENIH 


mc 


FEIHT" FRETHCTPREIL ="; 

THFIIT F 

۴۴٣٣٣ F 

FREIHT" IHT RATE=" 

IHFLIT IF 

PFIHT IF 

LET F=: 1+, 5tIEÁ1005 F$ 
]سا‎ 

FRIHT" F= "GF 

PRIHT" HMÜOHTHLUN PAYMEMT=" ; 
IHFLIT MF 
PRIHT fF 
FOR vz1 TO 
FAST 

PRINT AT &.8;"PRIHCTIPALS رہ‎ 
FERIHT"IHT RATE= ";IR; "F= "; 


Ty 


تح Bd‏ :7 ل“ ل“ 
لگ omm‏ تو T d» DO cx‏ 


nd. 


a e oT 
Pa 
cen 


Cn fe تر‎ 


1 


LD TI ضا‎ tO LD کیا کی‎ ux 


چ“ 


P PRIHT "HMOHTHL' PAYMEHTS= "; 
HF 

114 FFIHT AT 8.12: 
115 FEIHT 

121 PRIHT MO THT FR'YMEHT PRI 
٣۳۴۳۰۳۲۲۷٣ | ORM BEAL.” 

1368 FOR Hzi TO 17 

13+ LET I=F+F 

15 LET FEZHMF-I 

1&5 LET EzPF-FFE 

17۲۲ FRIHT M; TRE 3:1; TAB 13: PF 
i THE EE 

144 LET FsE 

196 HEST H 

195 FFIHT AT 21.5; "PRESS COHT. 
TO COHTIHI IE U 

Se SLOH 

AMM IF IHEEY$zZ-"" THEH GOTO ZAR 
21 IF IHKEYE THEH GOTO Bel 
sar JF THEE Y$="C" THEM GOTO 214 
AM GOTO Se 

2160 WENT Y 


"YEAR "i 


حسم 








rE E.S +. 


AND THINGS 


Well, here we are again for a 
roundup of news and observations 
on a variety of Timex/Sinclair 
topics. 

It is rumoured that two 
software houses in the UK will be 
producing mice [mouses?] for the 
Spectrum. Mice are of course 
available everywhere; it’s the 
interface that doesn’t exist. Look 
to both OCP and Kempston to 
produce mouse interface boards in 
the next month to support their 
graphics software offerings. 

Meanwhile on this side of the 
pond, U.S. software houses [hice?] 
are beginning to produce and 
market in the UK, 2068 software 
adapted for the Spectrum machine. 
A major software house doing this 
is U.S. Gold. But there are plenty 
of others, such as EPYX, OCEAN, 
and DATASOFT. 

The GL, which has had a hard 
time of it over here, is coming 
down in price both in the UK and 
in Canada. In the UK, Sinclair 
Research has cut the price of the 
GL from S$«4399.95 to «199.95. In 
Canada, Gladstone ` Electronics in 
Toronto is now selling the 8L ‘for 
$599.95 (without monitor and 
printer, and with 128 K RAM). 

According to Sinclair Re- 
search the price cut is possible 


due to "major savings from a 
substantial increase in manu- 
facturing volume... we've also 


been able to cut costs through 
increases in efficiency based pn 
experience gained in making @L’s 
over the last year and a half." 
Rumour also has it that we can 
soon expect a new machine to be 
announced by Sinclair Research. 
However the Spectrum+ in the UK 
still enjoys 35% of the market in 
new sales, so don't count out the 
old machine just yet! 


[TITHE TL s 





Is a 128K machine for $599.95 
a bargain? An apple clone with one 
disk drive and 128K (monochrome) 
costs about $700.00. Are excep- 


tional graphics more important to 


you than a disk drive in mono- 
chrome? For its price, in my 
Opinion the GL continues to be a 
bargain, especially at the UK 


price! 

For those interested in an 
inexpensive subscription to a 
Timex/Sinclair newsletter, try 


QuarTerS (@TS) published in New 
York State. A year’s subscription 
costs $8.00 (U.S.) per year. To 
order a subscription, write to 
W.M.J. Data Systems, 4 Butterfly 
Drive, Hauppauge, N.Y., U.S.A. 
11288. 

That's it for this issue, As 
the next issue Of this newsletter 
will be in 1986, Merry Christmas 


and a Happy Timex/Sinclair New 


Year to all! 
- LEO FOSS 


e Qipaq cote MEG a hp cups ee pee ooh Gud Qm. ee CUNEO سے‎ SUUM PE Gua ee Oe ees “met 


bs: Bill Harmer 


In the last article in this 
seriez we dealt with conwvertina 
mathematical statements. In 
this article, logical 
etatementes will be discussed, 

The colon 6:3 is used in most 
basics other than SH basic 
(i.e. Cé6d. Radio Shack » and is 
used to Put tuo seperate 
statements together in onc 
line. Far example: 160 Cle: 

PR THT "SCEEEM READY". This sort. 
of statement world be accepted 





t Computers other than 
the 2-81. whose equivalent 
wuonld be: 106 CLS 

110 PRINT SCREEH 
READ" 

Houewver, there is a sPecial 
trick to converting Programe. 
uzins this in 2X basic when the 
firzt statement is an IF..Then 
statement because in the case 
where the statement ۴1۱1۱1 
the if is not true, then the 
camPuter will skip tao the 


ka moet. 


next line ت10 نہ ت1‎ the 
£tatementz that follow en the 
fame line. 


So. 186 IF x3 THEM PFEIHT" 
ASTTHEEE": PEIHT"HEXT 10 rity = t. 
be changed to: IAN IF x= THEH 
٣٣۲۲۲۰۲۰۱ EQUALS THREE" 

10+ IF x= THEH 
FRIHMT"HEZT ۰ 

Another statement not seen 
in Sinclair basic is the IF.. 
THEN. .ELSE statement. 

Fef lace this statement. : 

1&1 IF اعم‎ THEW FEIHT" x 
EGUALS CHE" ELSE FRERIHT"Zz IS HGT 
EMIRAL. TO 1" 

bu the ztaterments: 

IAM IF “=1 THEN PRIHT" X 
EQUALS CHE" 

110 IF HüTéZz1» THEH FRIHT" Xx 
IS HOT EQUAL TO: 1". 


Another tube of statement nat. 
allowed in Zz-91 basic is the 
ØH. GOTO statement. This can 
he replaced bs separate 
efatements in ZH basic i.e. 
16 IF N=1 THEN GOTO 164 

ea IF H=2 THEM GOTO 2868 

34 IF Hz3 THEM GOTO 368 
2&4 basic will alsa allow for 
TomPuted GOTH statements to 
rePlace the OH.. GOTO i.e, 
16 GOTO ¢W=1 5#160406 Hee ز‎ 
#2040 H= ۵غ ز‎ 

or if the line numbers tc 
are mathematically f£eazakhl 
14 GOTO HiG 

GOSUBS falilon the same 
9eneral rule. 


£ 
m 


GOTO 
ey 





line mare note caoncernina the 
IF... THEM... 1050 ststementz do 
fot. forset that SK basic 
reqduipes the use of GOTO. a 
line number. or LET in an 
41221 Ament. statement, 

Thats all for now and there 
WILL be more comins later.. 


F— r3 -— 1 


es-81 GUICK TAFE LITILITY 


HON Cite (uas. RD (ups mae REE Qam QUSS MES (upto wmm qm Hp appe CHR Genes cet UPS GQ. s s‏ مم ہد پسیدا 


from Sinclair Prosramzcwc 


The following excerPt will 
allow all 2-21 owners to stave 
and load their رات رھ‎ ate 


Programs five ر5‎ times faste 
than thes can nin. DePendind 


an Your cassette’ 
caPabilities. thie Pr arm is 
ultra <table and wvirtuüaalla 
unmrashakle, 

Tae in listina 1, € the | 
first FEM has 240 spaces in it 
>, FII it to load in the 
machine code in listino? z. 
delete listina 1 line-ha-line 
and then tapa in listina 3. 

Save the Program bs taF 1799 in 
DOTO 16. Do sourself a fas ur 

30 S.A it. at. leas t. tuaj e ta 
ev ume th at. Sj (Cul have a. Giad 
capua, R detailed inetruction 
کت‎ the listinasz. 


LIS TING Í 


i REM ú ۹4م‎ B'S) 
16 LET A=" 
2A INPUT Es 
a IF B&z"z" THEH STOP 
40 LET AS=AS+ES 
Sf CLS 
ہام‎ PRIHT A$ 
5 ۲ھ"‎ 71 ABZ" 


7 
eu ln 2n 











1e 
165 
114 
1 


1 
146 
15h 
136 
10 


LISTING 2 €M^C-read 


1 
en 
an 
40 


Sn 
en 


LET Xxz16514 
FAST 


IF At="" THEN GOTO 166 
PORE X.I6XCCODE AS+CODE 


Ai 2 سر‎ PF 

LET ۲ں مج‎ 2 TA 
LET حے×‎ +1 

GOTO ۴٣ 

cL OIM 

STOF 


Machine code listing 
16514 CD OF 
16522 
16530 
16538 


16546 


y 


GAVE “FAST TAPE" 
PRIHT"FRET TAFE" 


22512" 


PRINT' TO LOAD-RAND L 


32525" 
PALSE 156 
RAND USF 16728 


3 PRIHT"TO SRVE-REND 


from 





4th Corner 


FESHAH SOHO! X 
: SHAH SOWG HHS MIF G= 
EHPIF ; 


MFORTH HMCHAMGE and e£fectivela 
Haut Mild Software has bitten 
the dust! The compans is 
bilamin9 its demise on the 
dieaPearina market and the fact 
that the Portugese TIMES FAES 
failed to revitalize the 
Situation. The balance of its 
stack will will be the balance 
of the compans., On sale are, r 
Course EFORTH. ABERSOPT FORTH. 
HISOFT C. GEVPACH3. HISCFT 
PASCAL. amd odda and .ہے‎ 


f 


fz a further ewcenrPt fram the 
Mforth xchanse newe letter 

acu will find herewith a 

Aou ztick imPementation in 
REERSOFT FORTH. 


MC SCR 8121 STICK EAM 4-15-85 
ص۴۲۱۱‎ ۲۲۳٢ ACHAHGE ز‎ 

1 : WALL 

2 HEX 


42 : JPHEST £---» C3 C. 2C C. 
91 C. : IMHEPTRTE 
4 CREATE STICK (---n?» 
rs C, 
9 SE C. CE C. 
p2 CC, FS C’ 
646 c. @1 rc. 
? WE C. Fë C. 
8 ED C. 78 C. 
SF C, 
a Ec C, SF C. 
26 C. ) c. 
EF C. C1 C. 
ES r, 


JPHEXT ۴ 

€ STICK RETURNS A HUMBER CIH 
THE STACK = “aoa yyy. EIHMARY > 
14 ¢ =Í ۰٠8/۲٣ 0-6 HO )0 74 
YAM, CENTER =@1.FO0RWARD 

15 ,ت42)->‎ BACK s4. LEFT =e, 
FIGHT > DECIMRL :% 


— مر مم مم 
اکا — ta PO‏ 





٢٢ E 
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xmod lu 
Zebra Systems 
Novas 
TEPEE 
e problems in 
With ma Zx+ and 
em 15 that write 
Pioaded and 
om Butléetin Beard 
rams can not ítheu 
£ zent difrectiu bu 
Other Zx-51 owners 
Kk modemsi, The 
iz 15 that the 
em only supports 
ocak on text 
M-xOFF are signals 
tuo communicating 
£u control the 
=5. bu telling the 
ter to stop sending 
XOM is received. 
are needed in 
the receivina 
to process the 
- EYTE-BHRHCH 
does not support 
OL. XMODEM is a 
error-cChecking 
Rich the receiving 
ives two checksums 
€ach block of data 
cannot verify the 
» à £ignal is sent 
engdina computer ta 
2 Last block. 
erefore With some 
i Learned that 
in New York Citu 
XMODEM software 
and BYTE-BACK. 
mPptiu sent in mu 
e&eks Later, a tape 
£ mail. According 
2n the tape there 
ions: a LEK 
a EF version 
into the -12k 
Frise. Ho manual. 
rra, I fired up thre 
oundg it 
i had no 
makina it uork, 
couldn't figure 
5 the downloaded 
h iz Uhu I bought 
Bt piace!. پ۴‎ 
L to Zebra Suüztems 
U had forgotten to 
anual. Three weeks 
3نا‎ ٣ arrived. 
nce uploaded Zzx-Si 
u EES (937-123687). 
loaded them, and 





Cun them suczcezsfullu. The 
Program works as advertised. 

۴ feu F [xu E i ems ' thc uan s 
First, the non-standard 
Lerminmologyu put me off. For 
ezamp ie, "Düupisx" 15 calied 
"SZimpiex" for some reason. 
Transiatina a downloaded program 
initio Sinclair Basic is calied 
"Transfer", ett. Second, Line 
feedz from the sending BES csuse 
a Line of anmverseée "jJU S down tre 
Left side of the Screen. The 
manual 2845 to configure tre BES 
nat to Bend iine feeds, but on 
manu EBE2'/s fintluding mu oun!) 
this can't be done. Third. 
2tí1raiaght ASCII text can t be 
Saved. So if uou want to fave 
incomina data inot fils datas. 
forget it! 

Dn the plus side, it Lets 
نا یا‎ Uz& the fuii l16kh-c4k area, 
SG a FULL &EF program can be 
Uploaded or downloaded 
iBg"TE-BERMCH software only permite 
about Lehi, Also it iz 
pFieszantiu easu to operate, 

Who has a BYTE-EBACE.‏ ج1 ت یہت 
Modem has EYTE-BACK software. If‏ 
uou view the Mini XMOD 1.7 as a‏ 
suüppiementaru software oniu for‏ 
tile exchange , it is a8 "ailyuabic‏ 
inyeztment,., and highly‏ 
recommended.‏ 


FERSONALS 


SECHE T 
ASEM T 


10 FEM SECRET AGENT IS aN ORIG 
INAL PROGRAM FOR THE ZX-£1i1 Ev BEI 
LL HWHARMER ,OTTAWA-AND IS AVAILAEL 
É FOR THE PERSONAL USE OF HEHEE 
RS OF THE OTTARaLG-HULL TINEN «SINC 
LAIR USER GROUPE 

ZO DIM ؛ ب×٭‎ 1838 








60 PEINT AT 18,6; "+ 2E 
CRET AGENT x7 
£t PRINT AT رق ں"‎ ‘+ 
E7 PRINT AT رھ" رتو‎  '' 
xU 
YQ PRINT AT &,.0; "4 
$ '' 
Ye FRINT AT 22,0; "+ 
QEU 
TOS PRINT HT 7,0;" s»ss2£*X54X* 


ہے رپ رر یڈ وو 
PRINT RT 13,0; U 3532435333‏ 77 
Rrxktirx£t£kbkikXkXgzgk‏ 











90 PRINT AT 21,0; "PRESS ""ENTE 
RU 1$ t. E (Ü Tü id oN” 

S35 INPUT A$ 

Së CLS 

S? IF AS="SESAME” THEN GOTO 38 


100 PRINT “SECRET AGENT Ii A PE 
OGRAM DESIGNED TO ENCODE ñ 
ND DECODE SECRET MESSAGES" 

101 PRINT 

192 FRINT “A MESSAGE IS ENTERED 


AND THE COMPUTER WILL CONVER 
3 er. TE A SEQUENCE OF JUNINTELL 
IGIBLE NUMBERS. THE MESSAGE 

CAN EE DECIPHERED EY ANOTHE 
`. 7 HALING THE SAME PROG 


18S PRINT 

104 PRINT "ONE MUST ENOL HOLENE 
R WHICH OF THE FOUR CODING OPTI 
ONS HAVE BEEN USED" 

105 PRINT 

198 PRINT “VARYING THE CODING Ü 
PT ION MAKES THE CODE MORE SECURE 


119 PRINT AT £i.,0;" ENTER 
TO GO GN" 

432 INFUT A$ 

114 CLS 

115 FPRINT "ENTER ""CODE"" GR "" 
DECODE' BEPEND-ING GHW WHETHER `" 
OU WISH TO CODE A NEL MESSAGE OF 

DECODE A CODED MESSAGE" 

120 INPUT ۴9۹ 

1438 PEINT 

440 PEINT "ENTER WHICH CODE YOLU 

ARE USING (12,2,3,0F 41" 

150 INPUT L) 

255 PRINT 

166 IF Weird AND Were AND Mors 8 
ND وب یر‎ THEN PRINT AT 10,0; “ENTE 
F ONLY PME OF THE NUMBERS 1.2.9 
OR 4. TRY AGAIN" 

170 IF ict] AND Weta AND di H 
ND Word THEN GOTO 150 

150 LET Is 

190 IF Wee THEN LET I=5 

goo IF ij=4 THEN LET Iz? 

210 FEM "I" IS EXTRA ۶ص ظط‎ 
OF SUBSTITUTION,HERE SET TO 1,3, 
5 GF 7 iEY CODE 1,3,2#,43 

LS‏ ا2ے 

SO@ IF M$=" CODE" OR M&£z'"C" THEN 

GOTO 10028 

S10 IF M$: CODE" AND Mg: DECO 
DE" AND M$c»-"C" AND M$: 0D“ THEN 


SEQ IF H$z^D" OR M$="DECODE” TH 





EH GOTI 208 

$20 GOTO 115 

S25 REM SECRET AGENT PROSEAM MA 
KES CODING AND DECODING CHILDSFL 
AY .PROGRAM BY BILL HARMER. AFR. 15 
&5.nLL RIGHTS RESERVED 

S50 PRINT "MEMORY USED JPz "PE 
EK l1£232586-42565xPEEH 16227-15224," 
BYTES" 

S30 STOF 

1000 FEM ENCODING ROUTINE 


1018 _ PRINT “PROGRAM TO CODE e NE 
287 PRINT "USING CODE NUMBER `i 


1070 PRINT 








ioa PEINT "ENTER YOUR MESSAGE W 
Di (uP TO iiec CORTE 


Noa EQ WORDS. * 
1645 PRINT 
1650 PEINT "IF 
DNGER BREAK IT 
FSSAGES AND CO 


E PRINT 
GEB PRINT جم‎ 


INPUT R$ 
1050 PRINT AT 


1035 IF (LEN R 
11060 LET F$= 
1110 FEH IN GT 
izio WOULD BE- 
¿280 FOR Nz1 TC 





42239 LET ڈ 5د ولا‎ í 
lzzO LET YziCcCOD 
lzzt5 IF Yv:210 & 

23060 


lzzo6 REM یچ‎ 
SED FOR LINE ie 
12308 LET ٠ ہب ے ٭‎ 
1240 IF YES T 
1245 FEM IF 

WOULD BE USED 
ASCII 


co 


YOUR MESSAGE IS L 
_UP INTO SMALLER M 
DE THEM SEPARATELY 


2,0; "HBE 


2.0; "Efe 
$i+22 THEN Fost 


HER COMPUTERS LINE 
UtgzMID5iRS$.N.1: 
(LEH F$; 

N TO Hi 
IE (Usi 
F Y 63 THEN GOTO 1 


OR TGS WOULD EE ذا‎ 

gz FOR ASCII 
+I 

HEM LET ان وی‎ 
30 THEN LET vy -55 
FOR LINE 3246 FOR 


i1230 LET T$z5TRS$ ` 


1270 EXT ñ =F ¥$ 


L340 PRINT Ft 
. 1400 PEINT AT 
TO CODE AGAIN 
TO GO ج٤س‎ ۲ Ta 
1410 INPUT A$ 
i420 CLS 
1440 IF A$2"E" 
N GOTO 188 
1460 GOTO ٤0ت‎ 
z020 FEM DECOD 
2010 FRINT "PE 
NEL MESSAGE" 
220 PRINT "Us 


2030 PRINT 


+T$+"," 


20.0; "PRESS ENTER 
06 ENTER ""B"" 
START" 


CR AS="BEGIN' THE 


ING ROUTINE 
OSGRAM TO DECODE ñ 


ING CODE NUMBER “i 


Z040 PEINT "ENTER THE CODED TEXT 
COMPLETE WITH COMMAS BETWEEN 


THE NUMBERS" 
#2645 PRINT 

` 2050 PRINT "UP 
E ALLOWED INTHE 
AGES PRINT "INC 
D IN THE DEZOD 

ERINT 

JES PRINT AT 


PA INPUT Fs 
ZOE PRINT AT 


20553 IF LEN P$ 
2090 LET G£z"" 
2100 Bn iN OT 
LINE 22198 5SAy- 
D 2215 US ۶ھ‎ 0 
e200 FOR Nel TC 
2210 LET لا‎ >8 

215 LET Ugsrs 





2217 LET MziíN- 


z220 LET xíM!cz 
2230 IF x111 =@ 
E22 IF xil:zsQ 


TO 109 NUMEERS FF 
E TEAT; 

D SPACES ARE PLACE 
ED TEXT)" 


2.,0;" 


2,0; Eia 
36 THEN FAST 


MER COMPUTERS FOR 
US=MIDSIEPSEL.N. LT! AN 
(Pe N42 1)? 

Oo (LEN PE STEP Z3 
iN TO WN} 

IN +1 TO N41) 
i);3)41 

URL (Use Ss 


THEN LET P$-F$ 
THEN GOTO 20230 








of LET XxXtM)zixtM)-?)-I 
+o IF xiM):211 THEN LET 
+53 


۳۹ ×٭ LET‏ ا کا ; 
í‏ 


x íA: = 


N LINE 2248 
(X EM 13 


2500 REM “32,338 i4 ZEROS! ENTERED 
WILL RESULT IN PREVIOUSLY CODED 
TEXT BEING ENTERED FOR DECODING 
AS TEST 

2320 PRINT G$ 


2250 PRINT AT 28,0; "PRESS ENTER 
TO DECODE AGAIN OR ENTER ہچ‎ 


TO 60 BACK TO START" 


CIES INPUT A$ 

23865 CLS 

2370 IF H$£$z"B" OR R$-"BEGINH'" THE 
N GOTO 1808 

ESE GOTO 2080 

2O0@ CLS 


9010 PRINT 





9820 FHLI SE 2808 

9025 CLEAR 

9030 SAVE "SECRET RGEHH' 
9042 CLS 

9050 GOTO 58 


a 
Ç 
n 





L^ 
بب‎ 
ام‎ 
A 
sp 





m. 
ra 
c 





i REM ssx*545XXXXXXXXX£XXEX 
+ WORD INVADERS + 
+ EY HIM TURNER + 
ee جس‎ ee ee ee ee ج چ چ چچچ چچچ‎ 
£ FEW 4444444544444 چ چ چ چچ چچچ چچچ‎ 
+ FOR THOSE ANNOYING x 
x PEOPLE WHO NEED TO + 
ے‎ PRACTICE THEIR TYPING 
+ EUT PREFER TO FLAY + 
 UIDEO GRHMES..... + 
< چ چ چ چ > — چ‎ + + £ + x X X > x چ‎ x x چ چ چ‎ 
5 LET vüUze: LET THEM = 
& LET &SPEEDzo2O:. LET ERROGER-GO 
ic cO SUB geo. LET H=8: LET P 
ozzi1: LET €=” 
go CLE 
Ge GO SUE 4000 
1868 LET xzRHD«iG2Z-LEH a4) 
305 PRINT AT 0.x;a$£;HT گن جج‎ f° 
3348 FOR uz TO 19 
128 PRINT AT u.x;eti TO LEN as! 
i125 PRINT AT u-«i.x;asSiPos TO ! 
326 PAUSE SPEED 
3253 LET iS$=INKEYS@: IF i$: ©” TH 


EH GO SUE 08 
138 IF Hzi THEN GO TO ie 


gS m ———————— —————» 


Gea NEST Y 
3 LET THEHM-ZTHEHM-41 
see BEEF .5.-2806: GO TO 10 
ice IF i$-at$ípoz) THEN GO SUB = 
COO. RETURN 
i313 LET ERFEGEZEREOR41: PRINT AT 
21,18; ERROR: IF ERROR =5 THEN LE 
T EÉERüGRzü: LET THEM=THEM+1 
L820 RETURN 
eeoa LET G=txs8i4d: LET Usids- 
$F) 
FEES PLOT O,15: DRAR @,U: BEEF . 
55,16. BEEP .865.-18: PLOT OUER 
1;O0,15: DRAH OVER 1;8.,.0U3 
geoie LET pos=posei: IF pos+LEH a 
X THEN GO SUB 28880 
zozo RETURN 
z000 LET nes I2 LET YOuUsYOQuU¢e1: FRI 
HT AT Y x; FOR E=@ Tü 40 PST 
F اج‎ BEEP’ ےووہ‎ E: NEXT E: RETURN 
iow PRINT AT ži. e; °yOQU-"> YOU; AT 
21,25; ' 'THEHM-"; THEM: HT 21,412; "ER 
ROR-'";ERROR: LET SKILL =@+ (YOU i-TH 
EH! IF SKILL:2°9 THEN LET SETLL = 
za 
4805 IF SHILL:8P& THEN LET SKILL =€ 
48108 LET SPEED-ZBD-SKILL 
46208 RETURN 
529939 TOF 


oeeoNEERNE-O0T 62 MANY 


WORDS IN 
DATA STATEMENTS AS YOU 
LIKE JUST CHANGE W1 IH 
LINE 5001 TO MATCH THE 
NUMBER OF ENTRIES 


Seol LET Wiss@: RESTORE 9000: FO 

FoW=1 TO RHDxJi4«1: READ AS: NEXT 
tL: RETURN 

agio DATA eee یر‎ O s 
IKE'",".OSH'","DHNHHY","OMHMAB"."OPR" 
“DENNIS”, “ALAIN: 

Secs DATA "THEN", "THEM" . AUTO 
"BPRIL","JUMP", "THE", "THEIR", "LÍ 

HRE , MAISON", "DISK." ROLL", “TAP 

E", “POSTER ae ۴ "ÉnOK at 

age 230 CATA “LIST”, "TABLE", "ROBOT" 
,UPORTE'","MUR", "PAPER" 

aàsee SAVE “WORDS” 

aa INK 7: PAPER @: BORDER @: C 
23 

aceeé PRINT HT 16,13; "READY" 

SS3@ cO SUB 08 

2540 PRINT RT i06.,13," SET " 

S545 GO SUB 3688 

23550 PRINT AT 10,13; GO " 

G55 GO SUB S580: RUN 

"0" BEEF ,25,0: PAUSE 3&5: RETUR 

agogo RETURN 
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6208 PRINT AT 8,17;b;HT &,17: 4: 
BO SUB 3428. Go TO 18 

S30 LET b2z,061z21HMHT (.54+18@4UAL d 
$ UL 33: _ 
B25 LET r=,21x1WT i.. 54200% (b+0H 
ا‎ a$!: 

640 PRINT AT D5,17;b;RHT 7,217;i 
GO SUB 3422. DO TO 198 

6509 LET a=,23izINT (.541804 (UAL 
C$re2-URL bel: 

655 LET dz,PizINT 25+ 180435 USL 
bs: 

EE2 PRINT AT Z ١2:3 BT &,17;d 
GO SUB 3492: 52 TO 168 

BUD LET a=.81¢IWNT (.54+188eUGL d 
S-UAL b$: 

BYE LET c=.822sINT ¢,5 4280+ (UGL 
bt-a!: 

SEQ PRINT HT £5,17;a;HT 7,317; c 
SO SUB 34242: 82 TO ie 

Bad LET x=,%i =zTIHT ۸ق یبڈ5ار‎ 1 í 25 
*iHi CF! TES di: AMD رن ے؛‎ 
d$é$:z.z5xiUmOi csita2)1) 

635 IF xzi THEN GO SUB a4i0. GO 
TO Sis 

FEA LET bz,.,DizINT (,.541804 (AL 
ہے جا‎ SSD xi} 
NS LET as=.SizINT i.54100xUnL d 
Yrs 

FIS PEINT AT £,17;a;HT 8,47: b 
SO SUB 3422: 52 TO 18 
1288 REM MERE 
pone LET f$-z"CIBEBCLE" GO SUE 329 
1239 INK 5: [CIRCLE 280,75,38 
19015 PLOT 282,75: GRA 390,0. PRI 


=à: PRINT FLASH 1; INK 
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De] 


+140 AND d$: a 
=y 41110 AND ےد‎ 


AT 4,7;"O0ne value required"; 
FLASH @: INK 7^ “Radius iR... =”; 
یت وس‎ TO : ""Liircumferencez";uSii 
= TO ! HTEeae. es eee eee = SWELLS TO 

é 
1025 LET r£z"radius of ciftie'"': 
GO SUR 3228 
1930 INPUT d$. PEINT AT 5,1314:498 
IF d$2"7" THEN LET rzr^4i 
185 LET r£z"circumrerence o La 
relie“: 82 SUE چ8‎ 
1040 INPUT cs: PRINT AT &,.14:c8 
IF c$2"77?" THEN LET rere 
1045 LET حم‎ "argea of Circle" so 
SUB asas 
18050 INPUT as: PRINT AT 7,14: 488 
IF a$="7" THEN LET rer4j 
14852 I ¿=i THEM GO SUB S415: 5 
i 
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e 
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کر نت ا 5418004,( LET c=.823eIT‏ 1055 
dS):‏ 8ار ہے 

1078 LET 23-2.,2i1zIHT (.54100@+ ہی ےر‎ 
URL d$:Ttz2:: 

1075 PEINT AT 5,14; VAL ds; FT 5,1 
4;¢;8T 7,14; 3 S0 SUB a4980: GO T 
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LE! 
Pi: 

119S LET a=,21l1s INT 
FI; 
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lli; PRINT AT z,14.;d;HT ia 

SO SUB 2482. 62 TO 18 

1130 LET J=. Bi INT (,.54+188455F ! 
VAL as ز ہے‎ 

1125 LET cz.2$iziMT (,B5-4z00s5gBP | 
PISval a5! 

1140 PEINT AT z,14;d;nmT &8,]4:¢ 
GO Sip 3423: ii ux 12 

is FEM RENE 

TESS LET * PINDER"; GSO SUE 3 
ت83‎ 

1812 INK $: PLIT 240.50. CRA -7 
& 2 e : 2 sp T : DRA TÉ n e so SFI : DRAI 
3 E 5ث -۔-‎ I DRAJ -75 4 e as EPI š DRALL 
@.46: PLOT z2a2,20. ORAL 232,80. PR 
INT AT 22,87; RIOT 15,13; H” i 
NE F 

JES LET rzàü. PRINT FLASH i; INE 
SAT 4,7; wo values required"; 
FLASH a INK 7 ""Radius Rs... =”: 

wgs$iiz TO i 7 Height H.... Sue tis 
TO 3 ""ioiume:ii::...2 SWELLS TO : 
""Surface mBreaz";u$Silc TO i 

215298 LET r&-z"radius ER": GO SUE a3 
302 

1525 INPUT ds 

1530 PRINT AT &,13:d% IF d$z2'7? 
THEN LET r=r+i 

19525 LET r$-2"hzi;üht H” GO SUE 2 


zal FL 
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Ur F 


NELT b$ 

1545 PRINT AT 5,13; 68 IF b$z'7 
THEN LET rzr-4i 

1558 LET r$z" -oiume of cylinder 
: GU SLB 5232 

A555 INPUT cs 

1568 PRINT AT F,13:c8 IF 7ھ اع‎ 
THEN LET rzrza«i 

1SES LET r£&z'"surfíace area or cui 
inder" sil SUB sco 

ie?g NELT as 

1575 PRIN! AT 2,12;a$:. IF a= ^ 
THEN LET r=r+i 

1553 IF r+2 THEN GO SUE 8425: ناج‎ 
TO 1515 
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1520 62 TO izic.i280 AND dt: 
AND b$: Fst 380 AND dý: UTU AB 
D c$: Fret وج‎ AND AI: e?" BNL 
a$oc-77731-:i142 AND TR" AND C$ 
¿yumuu LiSA AND b$ UTU AND 3$: 
"2141182 AND Cpr?" AND ۶ی وھ‎ 
$t 1 

1525 LET cz,BcOiziHT (.541804+ (Ts 
AL b£rxiUmBi d$s:T?z!! 

ےج : نویج 3+ 5ء,ی؛ LET 3a-=.82eiINT‏ ج152 
زع JUAL JEL‏ 

18805 PRINT AY 7,13;c;HT E 12: 3 
SO SUE 3422. 62 TO 18 

3635 LET bzüni cm.-iPIsiUnL ds; TPE 
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E LET z 
UAL d$: 
1825 LET PF=,21z1HT (,54+188¢56: 
ی2353‎ PEINT AT 2,12;a;HT E, iS: E 
SO SUB S422: 62 TO 18 
1635 LET blll aS-izsPIsUHL d$! 
1640 LET c=.8222INT (.54+180¢FTsi+ 
(uni dg Sita: 
1645 LET bz.€g91z:INT (.5+188¢6: 
1659 PRINT AT 7,132; c AT E, 12: E: 
GO SUB 3492: Go TO 18 





4655 LET 3=<S3R fURL ce (PIeVal b 2145 LET zz,96iziHT §.5+188s:2 

ki 1 2155 PRINT AT 2,13;2;HT S,12: š: 
315529 LET az,DizIMT i,542080sPixds GO SUB 3492: 62 TO 18 

UAL ba} 21608 LET 5× بواےے‎ aS"iFIsUHL d$: 
1565 LET dz.2i1zszIMT i.B54180xd: 2165 LET c-iPI/2) «UHL d$£t2z28Ek 
1678 PRINT HT S.S; a FT ن13 ,ر5‎ ا٥‎ Ste-VAL dete! 

GO SUB 3433: GO TO 10 2170 LET s=.812INT i,24180xz: 
1675 LET Axil age (2BePIesvRL b$: 2175 LET c=,81sINT (.5412884c: 
1588 LET c-.2B1sINT (.541880sPIsdf 2188 PRINT HT 5,13;5;HT 7,13;c 
gzünHL bs: GO SUE 3422: GO TO 18 

46585 LET dz,41zINT -5410 Bed) Bio PRINT FLASH 1; INK رت‎ BT i2 
1659 PRINT AT 7,12 T RT 5,413 2; "Sorry, no soiution avaiiabie 
GD SUB 3422: 27 TO 10 : FLASH @: INK 7: GO SUB 3488: c 
1685 LET ds2zuüL EN URL as o TO 16€ 

1788 LET b-.À63i1zINT (,.541804 (UAL 22410 LET d-UüGL as;iPIsUHL s$: 
a$^izzPIzd:ii3 2215 LET زج ۶ج‎ xdtzs2üb INURL £ 
17805 LET dz.B1zINT S«1800zd! $tc-dt*z: 

1710 PRINT AT E10 5:d. ET 6,125: kË EZE LET d=. Zi INT (.5+4+180¢0: 

GO SUB 3422. 35 TO 10 E225 LET c=.82¢iINT i,54.18008-xc: 
ب222‎ REM BES e258 PRINT AT &,15;8;AT 7,123: c 
2825 LET rg="CONE": GO SUB ۵ GO SUB 3498: Go TO 10 

2010 INK 5: FLAT 202,20: DRAH Q, eco PRINT FLASH 1: INE B;HT i3. 
-5@: DRAW 38,8: DRAW -76.0,-.54F 2; "Sorry, no solution avaiiabie" 
I: DRAU 785,98.-.5s5PI: DRA 38, 5 : FLASH @: INK 7: GO SUB 842090. G 

DRAW -35.-5a: PRINT AT 18,27;" 0 TO 82 

INK 7 2500 REM 872‏ .کہ ;12,272 ہہ 

i5 LET ي۔- م‎ PRINT FLASH i; INK BESS LET .r$="SHERE': GO SUB 3848 
زم‎ 8۲ 4.7; "Tuo values required"; 2 

FLASH ài INK T^ Radius ہے رم‎ z500 CIRCLE güg,75,20 
wiis TO : / "Height S...2.2=2"j;wstis 565 PLOT 282,75: DRAR 280,0: FRI 
TO )'"Uoiume......c"7:u$i18 TO ! NT BT iz,27; R^ 

'"Süurface &reaz";usti18 TO ! 22570 LET rzgà: PRINT FLASH 1; INK 
228238 LET r$z"radius R“: GO SUB 3 6;AT 4,7T;"üne value required" 
SA FLASH @: INK 7^ ""RadiusiR)...,.- 
#2025 INPUT as uiis TO j UO LUME. sasssa m" iub ii 
2038 PRINT AT E,18;d$: IF ےی‎ 5 TO "Surface area.z7;us$ilo TO 
THEN LET rzr4i : 

ease L f£2"Rheight 3°: GO SUB a 2575 LET r£z"radius of sphere”: 
580 GO SUB 532022 

2258 INPUT ss ت255‎ INPUT d£: PRINT AT 5,14; 35: 
285 PRINT AT £,13;:25. IF sS IF d$z"7?" THEN LET r=r+1 

THEN LET r=r +š 2555 LET r£$zz"voiume of sphere" 
2255 LET r£zs"votume of cone": GO GO SUB 2308 

SUB asus 2590 INPUT c$: PRINT AT &,44:c¢8 
2078 INPUT cs IF c£2"7" THEN LET r =r+1 
2075 PRINT AT Tolg £5 IF cgs T“ eos L C£z"surface area or ZPR 
THEN LET rerei gre": oO Sip 3228 

LET r&-z"suríace area of con 2680 INPUT as: PRINT HT 7,1i£:a£t‏ ج225 
e": GO SUB 25232 IF a$2"7*" THEN LET r=r+1‏ 

2085 INPUT as z502 IF r:z THEN GO SUB 3415. 65 
Z090 PRINT AT &,13;a8: IF قوج‎ TO 25728 

THEN LET ےپ حدم‎ 268+ IF rz THEN GO SUE 93405. GO 
2995 IF r»2 THEN GO SUB 8405. 60 TO 2572 

TO 28i5 2605 GO TO 2372+140 AND d$: ا‎ 
2100 IF r:z THEN GO SUB 93415: GO $180 AND c$io777)4(180 AND as: 

TO 2015 Eo. 

2185 GO TO 224541985 AND dý: UT” 2618 LET cz,29i1zIMT (,54180xi:4xP 
AND $s$$:0::"77"73.1:i120 AND dý: 070 AN lIz^c)xiURBL agi tai) 

D c$: جو ے3 یپ رہ‎ AND deer" 7° AND 2615 LET a-z.46iziNT F+d BBs Te fil 
جج یں یر یچچ‎ GND s863"7" AND C AL ند‎ 

GND seer" ANE at: `. EBED PRINT RT 2,14;c;HT 7.14‏ 41498 رو دنر 
ety Ee (SSA ANG r$: >". AND am: GO SUB 2422 isi TO ie‏ 

"9 26358 LET dzicsinmni c#eideP Ti it ti 
2110 LET c=.23¢INT (,.54+1804F 145 3! 

L 5و کے2 ۶ے‎ iini $tT2-UnL d£t*t2z3).2 217 LET جج ث.٭ے‎ INT 5+ ن را 8 8ج‎ C 
4 radi 

2115 LET a-.8i1sINT i(.54100sPIxsUAH e668 LET jd=,@lzIHT i.54188xd! 

L d$£sURBL ز×‎ 2665 PEINT HT £,14; d AT ee 
2120 PRINT AT 7,13;c;AT ون تارق‎ GO SUB S408: cO TO 10 

GO SUB 3422: 55 TO ie 26509 LET dsSeR (UAL ae e 
2135 LET s=SšR i((3sUBL cee (PF Ix 2695 LET rcz,g9$izsINT BD41800xiiizx7 
L d$£tzi:tTzcUni og gta 17 این رك‎ 

21480 LET az.DiszIiMT (.,54180sPIxUBH ت278‎ LET d-z.9G1zINT i. 54100450R í 
L dss: URL aS t4sFTi 33 














8705 PEINT AT 5,14id; AT ز 14 رچخ‎ ٤ 

GO SUB 34823: £2 TO 18 

271 SAUE “geometry” LINE @: GC 

TO 18 

sess STOP 

Ciz PRINT AT 0,0; waw‏ ن93 
R »‏ 





8 ` 
d 
ھی‎ DATA 2,2,2,35,145,126,148,3 
2324 DATA $,20,95,112,125,242,125, 
= 
9315 CATH 2,4,220,152,16F,2808,1i1 
2,125 
S128 DATA 9$,90,z,40,205,00,24,15z2z 
5ة‎ LET ze="tEnter "nnn for un 
known vaiuesz:i" 
51238 LET wes" 
a1c5 RETURN 
8ة‎ INK 5. PLOT 50,77: DRAR i22 
9222 RETURN 
S308 PRINT AT £2,868: i $ +¥ 
O3@5 LET rss’ Enter "4r: PRINT A 
T 2@2@,15-.5SsLEN fr IHE 8:28: 
INK 7. RETIN 
400 PEINT AT 228, O w+ RT 22.3 
"Press anu key to comtinue”’: FA 
USE @: RETURN 
S4@5 PRINT AT ڈو با +ؤانںا رت رخے‎ FLASH 
1; INK E; FT 28.7; ‘More data re 
quired"'^ INK FY: FLASH 806," Fres 
£ any key io continue” PAUSE e: 
RETURN 
$410 PEINT AT 28.8;ws4+uws; FLASH 
1; INK B:;AT 28,2; "Irratiansei r 
Suit. try again’? INK 7; FLASH 
Q;"' Press anu keu to continue" 
, PAUSE 2: RETURN 
S415 PRINT AT SRA, OLEH; FLASH 
1; INK BIAT 28,7; "Too Many ent 
fies" INK 7; FLASH Øi; Fress 
anu key to continue" FPRUSE @: E 
ETURN 


;0 /2/8/5/58/8/3/3/8/3/3 
E PE Pa 72/78‏ اکم اک اھ اھ ود is‏ 


DAILY 
JOURNAL 


For the ZX8i 
Bu Iris ten Holder 


1 PRINT “PROGRAM نے‎ - DAILY JG 

DUEHNBRBL" 

GOTO 1885 

ا بے 

GOSUE 15828 

PRIHT “SET UF ARRAY 

GOSUE zac 

CLS 

PRINT 


GOSUB 3E 
PRINT “CREUAL LABOUR" 
GOSUB 48 

GOSUB See 

GOTO 6€ 


PEINT LPREIHT " 
GOSUB Bee 
STOP 
PRINT “CUMULATIVE TOTALS - 
Chi CULATIONS" 


GUOSUB Fae 
GOSLB Sado 
GOTO igoa 
GOSUE Sea 
9ہ‎ GOoTa i888 
GOSUB ose 


TÛ FD CÛ ~ P J 21017117 CRI P P Car ca Pa ma زا‎ es 


í.) ID 
ہشیش شس یی‎ DU dor 


SE PRINT AT 12,12; “END” 
ag STOP 

iE DIM Ri?! 

igs DIM Ei?! 

118 DIM R$iF, FY} 

1195 DIM REF] 

iz DIM ت1 : ان‎ , 0] 

i25 DIM C 1231 

1306 DIM E£i7?,.71 

1. DIM EI?! 

146 DIM ات‎ (22,6) 

145 DIM SAS: 

178 DIM xí7i 

175 DIM D?! 

1908 PRINT "RESET COMPLETES" 
295 PRINT 

185 RETURN 

ZZ FEM ARRAYS 


285 PRINT “CRASH REGISTER: DIVER 
BEER WINE LIQUOR خاات‎ 

zig FOR J=1 TO 7 

eile INPUT Riu) 

zid4 PRINT FSi) 

216 NEXT d 

215 CLS 


ید 


Z220 PRINT “CASH: 1 2 5 i8 Za se 
ج32‎ UISA MCH AMEX ENR CHO Tou" 
222 FOR J=1 TO 13 

224 INPUT Csid) 

225 PRINT Csi) 


230 PRINT "NUMBERS OF EXPENSE ñ 
S328 PRINT "TYPE EACH ENTRY: 1 5 
S 17 19 21 24" 


i24 FOR Jol TO 7 








KED PRODUCE BEU 
oo 


fa E CO "J OI 


Jes mmmmnm 
f 0 CI CI 


ا 


D 
252 
254 
256 
258 
259 
260 


h 


24 74 4 C CH CH CL CI P P= L) تی‎ h hà fo خر زط زط‎ Fa es 9 Fo وگ بت‎ UD D ۱ ID Dy CO CO 94 ل-‎ 9) SLOT CTI CP CTI 
nie cmmgmemgudagudaegotnmeeicmogeoutmedcviunmmm-egeuugemmnen 


GI GI CI COGI GI Co Fa Ga Ca Ca Ca Ca Gr Ga Ca ONCE CoN LN CI Gra Cara ca Gr G9 C Ga c ca ca oo for mo Fo mo po Po for por Fo Pro fo FO 


uos or CO Co = =‏ ۱ص 
bes f Org M EO CN ci‏ نا 


ogg 


INPUT ATU) 
PRINT TAE 
NEXT J 
CLS 

FRINT "TYPE ERCH ENTRY: 4 6 
c 20 22 zb" 

FOR J=1 TO 7 

INPUT Biv: 

PRINT Bi.) 

NEXT J 
CLS 
PRINT 


(Jl‏ ۳ر5 


i 
0 


“EXPENSE HEADINGS: BH 


GROC LIQUOR HONF 
CASUAL" 


FOR Jzil1 TO 7 
INFUT ES ici 
PRINT ES if.) 
NEST لپ‎ 
CLS 
PRINT “SUPPL 
FOR I=1 TÜ 6 
PRINT Es: I; 
FOR JzHiIll!l TO BiII! 
IHPLUT £i! 
PRINT 5$ i.d} 
NEXT لپ‎ 
NEXT I 
IHPLIT Sif 
PRINT THE رم1‎ Z {J} 
LET EtITisEt(ii4sia 
NEXT <! 
NEYT I 
CLS 
RETURN 
REM DATA 
PRINT "DHTE'" 
IHFLT E$ 
PRINT “LIST SALES" 
FOR Jzi TO 5 
PRINT Rei) 
INPUT Ridi 

=: F idi 


PRINT THE 
OUERPUNDHES' 


PRINT "LIST 

INPUT OP 

LET F (Ji =R Cbd -OF 
NEST oJ 

PRINT "LIST BILLS" 
FOR Jzi TO 13 
PRINT Citi 

INPUT Cid 

PRINT THE تی ہج‎ tu} 
IF J=F THEN FRIHT 


NEXT J 
"PETTY CASH" 


PRINT 

INFUT CH 

PRINT "LIST EXPENSES" 
FEM RESET EXPENSE TO @ 
LET ET=8 

FOR Izi To 6 

FRINT ESiI! 

FOR JsHtti TO رع ؛ جع‎ 
PRINT S$ ft) 

IHFUT Sidi 
PRIHT THE 
NEXT +<! 

cis 

NEXT I 
RETURN 

REM CASUAL 
PRINT “NUMBER 
INPUT NH 

LET N=NH+5 (G3 


TERS" 


“CARDS: " 


40; 5 (u) 





Eg 
425 


coc 


OA N EN OT Oe 
rm ra ٢۲ 
qe ie o 


ol 
.j 


-r 


“Sos 


=. 
rd 


S95 
Soe 
s99 
Beo 
681 
ces 


RE 17; 


eie 


eio 
eis 


E} ; 






oan 


TRE 9; 


LET Ei?! 
PRINT 
FOR u=Rñ i 
INPUT S$: 
PRINT Sgio) 
NEXT J 

CLS 


d H 


RETURN 
REM CALCULATIONS 
LET TCz 

FOR Jz1 TO 7? 
LET TCzTC-4CcCií.!n 
HEXT +Í 

LET TCüüzé 

FOR Jz& TO it 
LET TCG-TUCG-aCci.d 
NEXT <l! 

LET ES - 
LET FIFI =8 
FOR J=1 TO 
LET Rií71=F/714+F Luli 
NEXT dJ 
FOR I=1 TË 
LET EF (TI: =8 
FOR بے ںل‎ IT} 
Pees 


0 


H m 


ü E 
1 +Š 


` 
* 
7 
i‏ لم سے 
+ : 


L? 
"E 


Ta 7 

LET ET=ET+E iri 

NEXT I 

LET HCzCT-CH 

LET STzHLC-CET 

LET GQUERSST-FIT) 

LET SHORT =R iF} 5T 

STOP 

IF, ST? Fitri TREN PRINT TAE i 
; TRE 25; OVER 

TF ST «RÀ THEN PRINT TAE i 

TRE 25; INT ii1i8Brx2HOET- 

۶1 

FOR Gzi TO ise 

NEXT @ 

RETURN 

REM LPREINT 


CLS 

PRINT “CASH”; TRE = 
“SALES; TRE FS; E 

لہ مہ مہ لہ لہ لہ ت لہ دہ دہ مہ تا سد ت س ت ا لت "^ PRINT‏ 

FOR eT Yr 

PRINT Didj -UAL CINI; 

Cid); TAB iF; iJi TAE 


25; Ê iJ 


NEXT dJ 

PRINT TAE 2:78; TRE 

PRINT 

FOR J-2 TO 13 

PRINT C$ i Jii TAB Š: 

NEXT J 

PRINT TAB ;T$£;TAHB 108; Tit 

PRINT THE 18; ' سس‎ =~ =; TAB 1 
TRE ان کے‎ 


PRINT "PETTY CASH” 


18,72 


cid} 





i3 














$ 








636 PRINT TAB 17;"------ ۶ G90 cOsuBsB 2 
639 PRINT, "NET CASH"; TAB 17;:NC sos GOTO 38 
640 PRINT TAB 2;T5;" EXPENSES"; ج122‎ PRINT TAE 10; "OPTIONS" 
TAB i17;ET 1885 PRINT 
642 PRINT TAB 17;"------ “TAB Z i810 PRINT TAB Z;"1. SET UP VARI 
5:5T ABLES" 
644 PRINT TAB Z85;"------ à 1015 PRINT TAB 2;"B. DAILY INPUT 
646 IF SI Ri?) THEN PRINT TAB 1 e 
SEE TAB 25; QUER 1028 PRINT TAB 2;"3. NEU MONTH" 
"548 IE ST.Ri7) THEN PRINT TAB i825 PRINT TAB 2;"4. END" 
T: TRE 25; INT (18025HORT + 1636 PRINT TAB 2;"5. SAVE" 
8.95) i180 1035 PRINT TRE 2;"86. LIST" 
650 REM EXPENSE DETAIL 1038 PRINT 
655 FOR I-1 TO 7 1840 PRINT "LAST DAY ENTERED: "; 
S60 PRINT ESiI) Bx 
665 LET BiT) =F 1845 INPUT ñ 
£78 FOR J=AiI} TO Bir: | 186486 CLS 
675 PRINT TAB 2;55£X(.);TAHE.180;3í 1658 IF Asi THEN GOTO iQ 
di 1855 IF aü-2 THEN GoTo 32 
680 NEXT J 186@ IF Ass THEN GOTO ق8‎ 
685 PRINT TAB 17;E(I! i1065 IF Az4 THEN GOTO a8 
E30 NEXT I 19070 IF A=5 THEN PRINT "READY TO 
695 PRINT T$; "EXPENSES"; TAB 17 SAVE" 
ET 1873 IF A25 THEN LIST 
eae STOF 1875 PAUSE 158 
627 INPUT A$ 1876 CLS 
698 IF AH£-"N" THEN GOTO 33 1%38 PRINT “RELEASE PRUSE BUTTON 
699 RETURN I 
?a LET TTCs2TTC4NC 1@85 PAUSE 128 
7T10 LET TTE-TTE-4ET 1333 GOTO ي2۵‎ 
720 FOR J=1 TO 7 2000 SAVE “WIE 
725 LET Did) 2D iai +R tJl 2810 PRINT "COMPLETED" 
735 NEXT d `” 2811 STOP 
740 FOR J=1 TO 7 ج221‎ GOSUB 8 
745 LET Xi! zX زی‎ +E (ui 2215 GOTO 1 
755 NEXT d 8388 PRINT "TOTAL SALES": TAB Za: 
790 PRINT "COMPLETED" pt?) 
7992 RETURN A422 PRINT 
gga LPRINT S5@@ PRINT TAB ۶ی چع رع‎ TAB 10;X! 
ھ8‎ CLS 7j 
S@2 PRINT “CUMULATIVE TOTALS asao PRINT 
CATE: “; TAB 2;8$," ۰ء‎ 8558 PRINT “TOTAL EXPENSES"; TARE 
S85 PRINT 28; TTE 
S18 PRINT “SALES" 87506 PRINT “TOTAL CASH“; TAB 20;T 
S15 FOR J=1 TO 5 TC 
S20 PRINT TAB 2;R$i.0;TRhHB 18;Di 88080 RETURN 
i} : 
S25 NEXT 
839 PRINT "TOTAL SALES"; TAB za; 
Dt?) 
535 PRINT 
64@ PRINT "EXPEHSES' 
845. FOR J=1 TO 7 
858 PRINT TAS 2;E$i Ji; TAB 18;Xi 
ul 
855 NEXT J 
S65 PRINT “TOTAL EXPENSES"; TAB 
mo; TTE 


S7@ PRINT 
S675 PRINT 


TC 

PRINT‏ ت358 
TTE-TTC‏ 
RETURN‏ 
LET cCT=2‏ 
LET ET=2‏ 
FOR J=1 TO‏ 
LET Rigi =ë‏ 
LET Et} =ë‏ 
NEXT J‏ 
RETURN‏ 
LET TYrc=8‏ 


“TOTAL 
"TOTAL 


CASH’ | THE 28; T 
SHORT = 


LET ٢٤٤۵ 





